home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / disk / dspace_v12.lha / DSpace.s < prev    next >
Encoding:
Text File  |  1995-01-09  |  1.5 KB  |  96 lines
  1. ;
  2. ; DSpace v1.2
  3. ;
  4. ; Copyright 1993-1995 by Stefano Reksten of 3AM - The Three Amigos!!!
  5. ;
  6. ; Tells you how many bytes are available on a volume. Freeware.
  7. ;
  8. ; For comments, postcards, greetings, and so on e-mail me at:
  9. ; rekststef@unisi.it
  10. ;
  11. ; or write me at this address:
  12. ; Stefano Reksten c/o Naimi
  13. ; v.le Cavour, 40
  14. ; 53100 Siena
  15. ; ITALY
  16. ;
  17.  
  18.     incdir include:
  19.     include dos/dos.i
  20.     include LVO3.0/exec_lib.i
  21.     include LVO3.0/dos_lib.i
  22.  
  23.     move.l    $4,a6
  24.     lea    DOSName,a1
  25.     move.l    #37,d0
  26.     jsr    _LVOOpenLibrary(a6)
  27.     tst.l    d0
  28.     beq.w    .nodos
  29.  
  30.     move.l    d0,a6
  31.     move.l    #Template,d1
  32.     move.l    #ArgArray,d2
  33.     moveq    #0,d3
  34.     jsr    _LVOReadArgs(a6)
  35.     tst    d0
  36.     beq.b    .noargs
  37.     move.l    d0,RDArgs
  38.  
  39.     move.l    ArgArray,d1
  40.     tst.l    d1
  41.     beq.b    .noargs
  42.  
  43.     move.l    #ACCESS_READ,d2
  44.     jsr    _LVOLock(a6)
  45.     tst.l    d0
  46.     beq.b    .nolock
  47.     move.l    d0,Lock
  48.  
  49.     move.l    Lock,d1
  50.     move.l    #DInfoData,d2
  51.     jsr    _LVOInfo(a6)
  52.     tst    d0
  53.     beq.b    .noinfo
  54.  
  55.     lea    DInfoData,a0
  56.     move.l    id_NumBlocks(a0),d0
  57.     sub.l    id_NumBlocksUsed(a0),d0
  58.     mulu.l    id_BytesPerBlock(a0),d0
  59.     move.l    d0,ArgArray
  60.  
  61.     jsr    _LVOOutput(a6)
  62.     move.l    d0,d1
  63.     move.l    #Fmt,d2
  64.     move.l    #ArgArray,d3
  65.     jsr    _LVOVFPrintf(a6)
  66.  
  67. .noinfo
  68.     move.l    Lock,d1
  69.     jsr    _LVOUnLock(a6)
  70. .nolock
  71.     move.l    RDArgs,d1
  72.     jsr    _LVOFreeArgs(a6)
  73. .noargs
  74.     move.l    a6,a1
  75.     move.l    $4,a6
  76.     jsr    _LVOCloseLibrary(a6)
  77. .nodos
  78.     rts
  79.  
  80.     cnop    0,4
  81. DInfoData
  82.     dc.l    0,0,0,0,0,0,0,0
  83. Lock
  84.     dc.l    0
  85. ArgArray
  86.     dc.l    0
  87. RDArgs
  88.     dc.l    0
  89. DOSName
  90.     dc.b    "dos.library",0
  91. Template
  92.     dc.b    "VolumeName/A",0
  93. Fmt
  94.     dc.b    "Free disk space: %ld bytes.",$A,0
  95.     dc.b    "$VER: DSpace v1.2 (8-1-95)",0
  96.